/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / gnus / nneething.elc.z / nneething.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 33 3a 30 30 20 31 | 39 39 38 0a 3b 3b 3b 20 |:03:00 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 67 6e 75 73 |s-20.3/l|isp/gnus|
|000000a0| 2f 6e 6e 65 65 74 68 69 | 6e 67 2e 65 6c 0a 3b 3b |/nneethi|ng.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 6e 6e 65 65 74 |  (error| "`nneet|
|000001f0| 68 69 6e 67 2e 65 6c 27 | 20 77 61 73 20 63 6f 6d |hing.el'| was com|
|00000200| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|00000210| 32 30 22 29 29 0a 0a 28 | 6f 72 20 28 62 6f 75 6e |20"))..(|or (boun|
|00000220| 64 70 20 27 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |dp 'curr|ent-load|
|00000230| 2d 6c 69 73 74 29 20 28 | 73 65 74 71 20 63 75 72 |-list) (|setq cur|
|00000240| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 6e |rent-loa|d-list n|
|00000250| 69 6c 29 29 0a 0a 0a 28 | 62 79 74 65 2d 63 6f 64 |il))...(|byte-cod|
|00000260| 65 20 22 c0 c1 21 88 c0 | c2 21 88 c0 c3 21 88 c0 |e "..!..|.!...!..|
|00000270| c4 21 88 c5 c6 c7 c8 5c | 22 c8 89 46 0e 09 42 16 |.!.....\|"..F..B.|
|00000280| 09 c5 ca 44 0e 0b 42 16 | 0b c8 87 22 20 5b 72 65 |...D..B.|..." [re|
|00000290| 71 75 69 72 65 20 6e 6e | 68 65 61 64 65 72 20 6e |quire nn|header n|
|000002a0| 6e 6d 61 69 6c 20 6e 6e | 6f 6f 20 67 6e 75 73 2d |nmail nn|oo gnus-|
|000002b0| 75 74 69 6c 20 6e 6e 65 | 65 74 68 69 6e 67 20 6d |util nne|ething m|
|000002c0| 61 70 63 61 72 20 23 5b | 28 70 29 20 22 08 43 87 |apcar #[|(p) ".C.|
|000002d0| 22 20 5b 70 5d 20 31 5d | 20 6e 69 6c 20 6e 6e 6f |" [p] 1]| nil nno|
|000002e0| 6f 2d 64 65 66 69 6e 69 | 74 69 6f 6e 2d 61 6c 69 |o-defini|tion-ali|
|000002f0| 73 74 20 22 2a 69 6e 74 | 65 72 6e 61 6c 2d 6e 6f |st "*int|ernal-no|
|00000300| 6e 2d 69 6e 69 74 69 61 | 6c 69 7a 65 64 2d 62 61 |n-initia|lized-ba|
|00000310| 63 6b 65 6e 64 2a 22 20 | 6e 6e 6f 6f 2d 73 74 61 |ckend*" |nnoo-sta|
|00000320| 74 65 2d 61 6c 69 73 74 | 5d 20 34 29 0a 23 40 33 |te-alist|] 4).#@3|
|00000330| 39 20 57 68 65 72 65 20 | 6e 6e 65 65 74 68 69 6e |9 Where |nneethin|
|00000340| 67 20 73 74 6f 72 65 73 | 20 74 68 65 20 6d 61 70 |g stores| the map|
|00000350| 20 66 69 6c 65 73 2e 1f | 0a 28 64 65 66 76 61 72 | files..|.(defvar|
|00000360| 20 6e 6e 65 65 74 68 69 | 6e 67 2d 6d 61 70 2d 66 | nneethi|ng-map-f|
|00000370| 69 6c 65 2d 64 69 72 65 | 63 74 6f 72 79 20 22 7e |ile-dire|ctory "~|
|00000380| 2f 2e 6e 6e 65 65 74 68 | 69 6e 67 2f 22 20 28 23 |/.nneeth|ing/" (#|
|00000390| 24 20 2e 20 38 31 38 29 | 29 0a 28 6e 6e 6f 6f 2d |$ . 818)|).(nnoo-|
|000003a0| 64 65 66 69 6e 65 20 27 | 6e 6e 65 65 74 68 69 6e |define '|nneethin|
|000003b0| 67 2d 6d 61 70 2d 66 69 | 6c 65 2d 64 69 72 65 63 |g-map-fi|le-direc|
|000003c0| 74 6f 72 79 20 6e 69 6c | 29 0a 23 40 32 34 20 4e |tory nil|).#@24 N|
|000003d0| 61 6d 65 20 6f 66 20 74 | 68 65 20 6d 61 70 20 66 |ame of t|he map f|
|000003e0| 69 6c 65 73 2e 1f 0a 28 | 64 65 66 76 61 72 20 6e |iles...(|defvar n|
|000003f0| 6e 65 65 74 68 69 6e 67 | 2d 6d 61 70 2d 66 69 6c |neething|-map-fil|
|00000400| 65 20 22 2e 6e 6e 65 65 | 74 68 69 6e 67 22 20 28 |e ".nnee|thing" (|
|00000410| 23 24 20 2e 20 39 37 35 | 29 29 0a 28 6e 6e 6f 6f |#$ . 975|)).(nnoo|
|00000420| 2d 64 65 66 69 6e 65 20 | 27 6e 6e 65 65 74 68 69 |-define |'nneethi|
|00000430| 6e 67 2d 6d 61 70 2d 66 | 69 6c 65 20 6e 69 6c 29 |ng-map-f|ile nil)|
|00000440| 0a 23 40 31 30 35 20 52 | 65 67 65 78 70 20 73 61 |.#@105 R|egexp sa|
|00000450| 79 69 6e 67 20 77 68 61 | 74 20 66 69 6c 65 73 20 |ying wha|t files |
|00000460| 74 6f 20 65 78 63 6c 75 | 64 65 20 66 72 6f 6d 20 |to exclu|de from |
|00000470| 74 68 65 20 67 72 6f 75 | 70 2e 0a 49 66 20 74 68 |the grou|p..If th|
|00000480| 69 73 20 76 61 72 69 61 | 62 6c 65 20 69 73 20 6e |is varia|ble is n|
|00000490| 69 6c 2c 20 6e 6f 20 66 | 69 6c 65 73 20 77 69 6c |il, no f|iles wil|
|000004a0| 6c 20 62 65 20 65 78 63 | 6c 75 64 65 64 2e 1f 0a |l be exc|luded...|
|000004b0| 28 64 65 66 76 61 72 20 | 6e 6e 65 65 74 68 69 6e |(defvar |nneethin|
|000004c0| 67 2d 65 78 63 6c 75 64 | 65 2d 66 69 6c 65 73 20 |g-exclud|e-files |
|000004d0| 6e 69 6c 20 28 23 24 20 | 2e 20 31 30 39 35 29 29 |nil (#$ |. 1095))|
|000004e0| 0a 28 6e 6e 6f 6f 2d 64 | 65 66 69 6e 65 20 27 6e |.(nnoo-d|efine 'n|
|000004f0| 6e 65 65 74 68 69 6e 67 | 2d 65 78 63 6c 75 64 65 |neething|-exclude|
|00000500| 2d 66 69 6c 65 73 20 6e | 69 6c 29 0a 23 40 32 30 |-files n|il).#@20|
|00000510| 20 6e 6e 65 65 74 68 69 | 6e 67 20 76 65 72 73 69 | nneethi|ng versi|
|00000520| 6f 6e 2e 1f 0a 28 64 65 | 66 63 6f 6e 73 74 20 6e |on...(de|fconst n|
|00000530| 6e 65 65 74 68 69 6e 67 | 2d 76 65 72 73 69 6f 6e |neething|-version|
|00000540| 20 22 6e 6e 65 65 74 68 | 69 6e 67 20 31 2e 30 22 | "nneeth|ing 1.0"|
|00000550| 20 28 23 24 20 2e 20 31 | 32 39 37 29 29 0a 23 40 | (#$ . 1|297)).#@|
|00000560| 33 31 20 43 75 72 72 65 | 6e 74 20 6e 65 77 73 20 |31 Curre|nt news |
|00000570| 67 72 6f 75 70 20 64 69 | 72 65 63 74 6f 72 79 2e |group di|rectory.|
|00000580| 1f 0a 28 64 65 66 76 61 | 72 20 6e 6e 65 65 74 68 |..(defva|r nneeth|
|00000590| 69 6e 67 2d 63 75 72 72 | 65 6e 74 2d 64 69 72 65 |ing-curr|ent-dire|
|000005a0| 63 74 6f 72 79 20 6e 69 | 6c 20 28 23 24 20 2e 20 |ctory ni|l (#$ . |
|000005b0| 31 33 37 39 29 29 0a 28 | 62 79 74 65 2d 63 6f 64 |1379)).(|byte-cod|
|000005c0| 65 20 22 c0 c1 c2 5c 22 | 88 c3 c4 21 ac 82 c5 14 |e "...\"|...!....|
|000005d0| c4 0e 06 42 16 06 c0 c4 | c2 5c 22 88 c3 c7 21 ac |...B....|.\"...!.|
|000005e0| 83 c8 16 07 c7 0e 06 42 | 16 06 c0 c7 c2 5c 22 88 |.......B|.....\".|
|000005f0| c3 c9 21 ac 83 ca 16 09 | c9 0e 06 42 16 06 c0 c9 |..!.....|...B....|
|00000600| c2 5c 22 88 c3 cb 21 ac | 83 c2 16 0b cb 0e 06 42 |.\"...!.|.......B|
|00000610| 16 06 c0 cb c2 5c 22 88 | c3 cc 21 ac 83 c2 16 0c |.....\".|..!.....|
|00000620| cc 0e 06 42 16 06 c0 cc | c2 5c 22 88 c3 cd 21 ac |...B....|.\"...!.|
|00000630| 83 c2 16 0d cd 0e 06 42 | 16 06 c0 cd c2 5c 22 88 |.......B|.....\".|
|00000640| c3 ce 21 ac 83 c2 16 0e | ce 0e 06 42 16 06 c0 ce |..!.....|...B....|
|00000650| c2 5c 22 88 cf d0 21 87 | 22 20 5b 6e 6e 6f 6f 2d |.\"...!.|" [nnoo-|
|00000660| 64 65 66 69 6e 65 20 6e | 6e 65 65 74 68 69 6e 67 |define n|neething|
|00000670| 2d 63 75 72 72 65 6e 74 | 2d 64 69 72 65 63 74 6f |-current|-directo|
|00000680| 72 79 20 6e 69 6c 20 62 | 6f 75 6e 64 70 20 6e 6e |ry nil b|oundp nn|
|00000690| 65 65 74 68 69 6e 67 2d | 73 74 61 74 75 73 2d 73 |eething-|status-s|
|000006a0| 74 72 69 6e 67 20 22 22 | 20 63 75 72 72 65 6e 74 |tring ""| current|
|000006b0| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 6e 6e 65 65 74 |-load-li|st nneet|
|000006c0| 68 69 6e 67 2d 6d 65 73 | 73 61 67 65 2d 69 64 2d |hing-mes|sage-id-|
|000006d0| 6e 75 6d 62 65 72 20 30 | 20 6e 6e 65 65 74 68 69 |number 0| nneethi|
|000006e0| 6e 67 2d 77 6f 72 6b 2d | 62 75 66 66 65 72 20 22 |ng-work-|buffer "|
|000006f0| 20 2a 6e 6e 65 65 74 68 | 69 6e 67 20 77 6f 72 6b | *nneeth|ing work|
|00000700| 2a 22 20 6e 6e 65 65 74 | 68 69 6e 67 2d 67 72 6f |*" nneet|hing-gro|
|00000710| 75 70 20 6e 6e 65 65 74 | 68 69 6e 67 2d 6d 61 70 |up nneet|hing-map|
|00000720| 20 6e 6e 65 65 74 68 69 | 6e 67 2d 72 65 61 64 2d | nneethi|ng-read-|
|00000730| 6f 6e 6c 79 20 6e 6e 65 | 65 74 68 69 6e 67 2d 61 |only nne|ething-a|
|00000740| 63 74 69 76 65 20 6e 6e | 6f 6f 2d 64 65 66 69 6e |ctive nn|oo-defin|
|00000750| 65 2d 62 61 73 69 63 73 | 2d 31 20 6e 6e 65 65 74 |e-basics|-1 nneet|
|00000760| 68 69 6e 67 5d 20 33 29 | 0a 28 64 65 66 61 6c 69 |hing] 3)|.(defali|
|00000770| 61 73 20 27 6e 6e 65 65 | 74 68 69 6e 67 2d 72 65 |as 'nnee|thing-re|
|00000780| 74 72 69 65 76 65 2d 68 | 65 61 64 65 72 73 20 23 |trieve-h|eaders #|
|00000790| 5b 28 61 72 74 69 63 6c | 65 73 20 26 6f 70 74 69 |[(articl|es &opti|
|000007a0| 6f 6e 61 6c 20 67 72 6f | 75 70 20 73 65 72 76 65 |onal gro|up serve|
|000007b0| 72 20 66 65 74 63 68 2d | 6f 6c 64 29 20 22 c0 09 |r fetch-|old) "..|
|000007c0| 21 88 8a 5c 6e 71 88 c3 | 20 88 0c 47 1d c6 1e 07 |!..\nq..| ..G....|
|000007d0| 0e 08 a7 ad 84 0d 0e 08 | 56 1e 09 ca 1e 0b ca 1e |........|V.......|
|000007e0| 0c 0c 40 3b ab 83 cd aa | dc 0c 89 41 14 40 89 16 |..@;....|...A.@..|
|000007f0| 0b ab c6 ce 0e 0b 21 16 | 0c cf 0e 0c 21 ab 9d d0 |......!.|....!...|
|00000800| 0e 0c 21 ac 88 d1 0e 0c | 21 c6 55 ac 8f d2 d3 0e |..!.....|!.U.....|
|00000810| 0b 5c 22 63 88 d4 0e 0c | 21 88 d5 63 88 0e 07 54 |.\"c....|!..c...T|
|00000820| 16 07 0e 09 ab 44 0e 07 | d6 a6 c6 55 ab 3c d7 d8 |.....D..|...U.<..|
|00000830| 0e 07 d9 5f 0d a5 5c 22 | 88 aa 30 0e 09 ab 84 d7 |..._..\"|..0.....|
|00000840| da 21 88 db 20 88 cd 2e | 06 87 22 20 5b 6e 6e 65 |.!.. ...|.." [nne|
|00000850| 65 74 68 69 6e 67 2d 70 | 6f 73 73 69 62 6c 79 2d |ething-p|ossibly-|
|00000860| 63 68 61 6e 67 65 2d 64 | 69 72 65 63 74 6f 72 79 |change-d|irectory|
|00000870| 20 67 72 6f 75 70 20 6e | 6e 74 70 2d 73 65 72 76 | group n|ntp-serv|
|00000880| 65 72 2d 62 75 66 66 65 | 72 20 65 72 61 73 65 2d |er-buffe|r erase-|
|00000890| 62 75 66 66 65 72 20 61 | 72 74 69 63 6c 65 73 20 |buffer a|rticles |
|000008a0| 6e 75 6d 62 65 72 20 30 | 20 63 6f 75 6e 74 20 6e |number 0| count n|
|000008b0| 6e 6d 61 69 6c 2d 6c 61 | 72 67 65 2d 6e 65 77 73 |nmail-la|rge-news|
|000008c0| 67 72 6f 75 70 20 6c 61 | 72 67 65 20 6e 69 6c 20 |group la|rge nil |
|000008d0| 61 72 74 69 63 6c 65 20 | 66 69 6c 65 20 68 65 61 |article |file hea|
|000008e0| 64 65 72 73 20 6e 6e 65 | 65 74 68 69 6e 67 2d 66 |ders nne|ething-f|
|000008f0| 69 6c 65 2d 6e 61 6d 65 | 20 66 69 6c 65 2d 65 78 |ile-name| file-ex|
|00000900| 69 73 74 73 2d 70 20 66 | 69 6c 65 2d 64 69 72 65 |ists-p f|ile-dire|
|00000910| 63 74 6f 72 79 2d 70 20 | 6e 6e 68 65 61 64 65 72 |ctory-p |nnheader|
|00000920| 2d 66 69 6c 65 2d 73 69 | 7a 65 20 66 6f 72 6d 61 |-file-si|ze forma|
|00000930| 74 20 22 32 32 31 20 25 | 64 20 41 72 74 69 63 6c |t "221 %|d Articl|
|00000940| 65 20 72 65 74 72 69 65 | 76 65 64 2e 5c 6e 22 20 |e retrie|ved.\n" |
|00000950| 6e 6e 65 65 74 68 69 6e | 67 2d 69 6e 73 65 72 74 |nneethin|g-insert|
|00000960| 2d 68 65 61 64 20 22 2e | 5c 6e 22 20 32 30 20 6d |-head ".|\n" 20 m|
|00000970| 65 73 73 61 67 65 20 22 | 6e 6e 65 65 74 68 69 6e |essage "|nneethin|
|00000980| 67 3a 20 52 65 63 65 69 | 76 69 6e 67 20 68 65 61 |g: Recei|ving hea|
|00000990| 64 65 72 73 2e 2e 2e 20 | 25 64 25 25 22 20 31 30 |ders... |%d%%" 10|
|000009a0| 30 20 22 6e 6e 65 65 74 | 68 69 6e 67 3a 20 52 65 |0 "nneet|hing: Re|
|000009b0| 63 65 69 76 69 6e 67 20 | 68 65 61 64 65 72 73 2e |ceiving |headers.|
|000009c0| 2e 2e 64 6f 6e 65 22 20 | 6e 6e 68 65 61 64 65 72 |..done" |nnheader|
|000009d0| 2d 66 6f 6c 64 2d 63 6f | 6e 74 69 6e 75 61 74 69 |-fold-co|ntinuati|
|000009e0| 6f 6e 2d 6c 69 6e 65 73 | 5d 20 34 5d 29 0a 28 6e |on-lines|] 4]).(n|
|000009f0| 6e 6f 6f 2d 72 65 67 69 | 73 74 65 72 2d 66 75 6e |noo-regi|ster-fun|
|00000a00| 63 74 69 6f 6e 20 27 6e | 6e 65 65 74 68 69 6e 67 |ction 'n|neething|
|00000a10| 2d 72 65 74 72 69 65 76 | 65 2d 68 65 61 64 65 72 |-retriev|e-header|
|00000a20| 73 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6e 6e |s).(defa|lias 'nn|
|00000a30| 65 65 74 68 69 6e 67 2d | 72 65 71 75 65 73 74 2d |eething-|request-|
|00000a40| 61 72 74 69 63 6c 65 20 | 23 5b 28 69 64 20 26 6f |article |#[(id &o|
|00000a50| 70 74 69 6f 6e 61 6c 20 | 67 72 6f 75 70 20 73 65 |ptional |group se|
|00000a60| 72 76 65 72 20 62 75 66 | 66 65 72 29 20 22 c0 09 |rver buf|fer) "..|
|00000a70| 21 88 5c 6e 3b 3f ad 83 | c3 5c 6e 21 0c ae 81 0d |!.\n;?..|.\n!....|
|00000a80| 1d 89 1e 06 3b ad a5 c7 | 0e 06 21 ad 9f c8 0e 06 |....;...|..!.....|
|00000a90| 21 3f ad 98 8a c9 0e 06 | 21 88 ca 20 ac 8c 65 62 |!?......|!.. ..eb|
|00000aa0| 88 cb 0e 06 70 5c 22 88 | cc 63 88 29 cd 2a 87 22 |....p\".|.c.).*."|
|00000ab0| 20 5b 6e 6e 65 65 74 68 | 69 6e 67 2d 70 6f 73 73 | [nneeth|ing-poss|
|00000ac0| 69 62 6c 79 2d 63 68 61 | 6e 67 65 2d 64 69 72 65 |ibly-cha|nge-dire|
|00000ad0| 63 74 6f 72 79 20 67 72 | 6f 75 70 20 69 64 20 6e |ctory gr|oup id n|
|00000ae0| 6e 65 65 74 68 69 6e 67 | 2d 66 69 6c 65 2d 6e 61 |neething|-file-na|
|00000af0| 6d 65 20 62 75 66 66 65 | 72 20 6e 6e 74 70 2d 73 |me buffe|r nntp-s|
|00000b00| 65 72 76 65 72 2d 62 75 | 66 66 65 72 20 66 69 6c |erver-bu|ffer fil|
|00000b10| 65 20 66 69 6c 65 2d 65 | 78 69 73 74 73 2d 70 20 |e file-e|xists-p |
|00000b20| 66 69 6c 65 2d 64 69 72 | 65 63 74 6f 72 79 2d 70 |file-dir|ectory-p|
|00000b30| 20 6e 6e 6d 61 69 6c 2d | 66 69 6e 64 2d 66 69 6c | nnmail-|find-fil|
|00000b40| 65 20 6e 6e 68 65 61 64 | 65 72 2d 61 72 74 69 63 |e nnhead|er-artic|
|00000b50| 6c 65 2d 70 20 6e 6e 65 | 65 74 68 69 6e 67 2d 6d |le-p nne|ething-m|
|00000b60| 61 6b 65 2d 68 65 61 64 | 20 22 5c 6e 22 20 74 5d |ake-head| "\n" t]|
|00000b70| 20 34 5d 29 0a 28 6e 6e | 6f 6f 2d 72 65 67 69 73 | 4]).(nn|oo-regis|
|00000b80| 74 65 72 2d 66 75 6e 63 | 74 69 6f 6e 20 27 6e 6e |ter-func|tion 'nn|
|00000b90| 65 65 74 68 69 6e 67 2d | 72 65 71 75 65 73 74 2d |eething-|request-|
|00000ba0| 61 72 74 69 63 6c 65 29 | 0a 28 64 65 66 61 6c 69 |article)|.(defali|
|00000bb0| 61 73 20 27 6e 6e 65 65 | 74 68 69 6e 67 2d 72 65 |as 'nnee|thing-re|
|00000bc0| 71 75 65 73 74 2d 67 72 | 6f 75 70 20 23 5b 28 67 |quest-gr|oup #[(g|
|00000bd0| 72 6f 75 70 20 26 6f 70 | 74 69 6f 6e 61 6c 20 73 |roup &op|tional s|
|00000be0| 65 72 76 65 72 20 64 6f | 6e 74 2d 63 68 65 63 6b |erver do|nt-check|
|00000bf0| 29 20 22 c0 09 5c 6e 5c | 22 88 0b ac a0 c4 20 88 |) "..\n\|"..... .|
|00000c00| 0d 40 0d 41 56 ab 87 c6 | c7 09 5c 22 88 aa 8f c6 |.@.AV...|..\"....|
|00000c10| c8 0d 41 54 0d 40 5a 0d | 40 0d 41 09 25 88 c9 87 |..AT.@Z.|@.A.%...|
|00000c20| 22 20 5b 6e 6e 65 65 74 | 68 69 6e 67 2d 70 6f 73 |" [nneet|hing-pos|
|00000c30| 73 69 62 6c 79 2d 63 68 | 61 6e 67 65 2d 64 69 72 |sibly-ch|ange-dir|
|00000c40| 65 63 74 6f 72 79 20 67 | 72 6f 75 70 20 73 65 72 |ectory g|roup ser|
|00000c50| 76 65 72 20 64 6f 6e 74 | 2d 63 68 65 63 6b 20 6e |ver dont|-check n|
|00000c60| 6e 65 65 74 68 69 6e 67 | 2d 63 72 65 61 74 65 2d |neething|-create-|
|00000c70| 6d 61 70 70 69 6e 67 20 | 6e 6e 65 65 74 68 69 6e |mapping |nneethin|
|00000c80| 67 2d 61 63 74 69 76 65 | 20 6e 6e 68 65 61 64 65 |g-active| nnheade|
|00000c90| 72 2d 69 6e 73 65 72 74 | 20 22 32 31 31 20 30 20 |r-insert| "211 0 |
|00000ca0| 31 20 30 20 25 73 5c 6e | 22 20 22 32 31 31 20 25 |1 0 %s\n|" "211 %|
|00000cb0| 64 20 25 64 20 25 64 20 | 25 73 5c 6e 22 20 74 5d |d %d %d |%s\n" t]|
|00000cc0| 20 36 5d 29 0a 28 6e 6e | 6f 6f 2d 72 65 67 69 73 | 6]).(nn|oo-regis|
|00000cd0| 74 65 72 2d 66 75 6e 63 | 74 69 6f 6e 20 27 6e 6e |ter-func|tion 'nn|
|00000ce0| 65 65 74 68 69 6e 67 2d | 72 65 71 75 65 73 74 2d |eething-|request-|
|00000cf0| 67 72 6f 75 70 29 0a 28 | 64 65 66 61 6c 69 61 73 |group).(|defalias|
|00000d00| 20 27 6e 6e 65 65 74 68 | 69 6e 67 2d 72 65 71 75 | 'nneeth|ing-requ|
|00000d10| 65 73 74 2d 6c 69 73 74 | 20 23 5b 28 26 6f 70 74 |est-list| #[(&opt|
|00000d20| 69 6f 6e 61 6c 20 73 65 | 72 76 65 72 20 64 69 72 |ional se|rver dir|
|00000d30| 29 20 22 c0 c1 c2 5c 22 | 87 22 20 5b 6e 6e 68 65 |) "...\"|." [nnhe|
|00000d40| 61 64 65 72 2d 72 65 70 | 6f 72 74 20 6e 6e 65 65 |ader-rep|ort nnee|
|00000d50| 74 68 69 6e 67 20 22 4c | 49 53 54 20 69 73 20 6e |thing "L|IST is n|
|00000d60| 6f 74 20 69 6d 70 6c 65 | 6d 65 6e 74 65 64 2e 22 |ot imple|mented."|
|00000d70| 5d 20 33 5d 29 0a 28 6e | 6e 6f 6f 2d 72 65 67 69 |] 3]).(n|noo-regi|
|00000d80| 73 74 65 72 2d 66 75 6e | 63 74 69 6f 6e 20 27 6e |ster-fun|ction 'n|
|00000d90| 6e 65 65 74 68 69 6e 67 | 2d 72 65 71 75 65 73 74 |neething|-request|
|00000da0| 2d 6c 69 73 74 29 0a 28 | 64 65 66 61 6c 69 61 73 |-list).(|defalias|
|00000db0| 20 27 6e 6e 65 65 74 68 | 69 6e 67 2d 72 65 71 75 | 'nneeth|ing-requ|
|00000dc0| 65 73 74 2d 6e 65 77 67 | 72 6f 75 70 73 20 23 5b |est-newg|roups #[|
|00000dd0| 28 64 61 74 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(date &o|ptional |
|00000de0| 73 65 72 76 65 72 29 20 | 22 c0 c1 c2 5c 22 87 22 |server) |"...\"."|
|00000df0| 20 5b 6e 6e 68 65 61 64 | 65 72 2d 72 65 70 6f 72 | [nnhead|er-repor|
|00000e00| 74 20 6e 6e 65 65 74 68 | 69 6e 67 20 22 4e 45 57 |t nneeth|ing "NEW|
|00000e10| 53 47 52 4f 55 50 53 20 | 69 73 20 6e 6f 74 20 69 |SGROUPS |is not i|
|00000e20| 6d 70 6c 65 6d 65 6e 74 | 65 64 2e 22 5d 20 33 5d |mplement|ed."] 3]|
|00000e30| 29 0a 28 6e 6e 6f 6f 2d | 72 65 67 69 73 74 65 72 |).(nnoo-|register|
|00000e40| 2d 66 75 6e 63 74 69 6f | 6e 20 27 6e 6e 65 65 74 |-functio|n 'nneet|
|00000e50| 68 69 6e 67 2d 72 65 71 | 75 65 73 74 2d 6e 65 77 |hing-req|uest-new|
|00000e60| 67 72 6f 75 70 73 29 0a | 28 64 65 66 61 6c 69 61 |groups).|(defalia|
|00000e70| 73 20 27 6e 6e 65 65 74 | 68 69 6e 67 2d 72 65 71 |s 'nneet|hing-req|
|00000e80| 75 65 73 74 2d 74 79 70 | 65 20 23 5b 28 67 72 6f |uest-typ|e #[(gro|
|00000e90| 75 70 20 26 6f 70 74 69 | 6f 6e 61 6c 20 61 72 74 |up &opti|onal art|
|00000ea0| 69 63 6c 65 29 20 22 c0 | 87 22 20 5b 75 6e 6b 6e |icle) ".|." [unkn|
|00000eb0| 6f 77 6e 5d 20 31 5d 29 | 0a 28 6e 6e 6f 6f 2d 72 |own] 1])|.(nnoo-r|
|00000ec0| 65 67 69 73 74 65 72 2d | 66 75 6e 63 74 69 6f 6e |egister-|function|
|00000ed0| 20 27 6e 6e 65 65 74 68 | 69 6e 67 2d 72 65 71 75 | 'nneeth|ing-requ|
|00000ee0| 65 73 74 2d 74 79 70 65 | 29 0a 28 64 65 66 61 6c |est-type|).(defal|
|00000ef0| 69 61 73 20 27 6e 6e 65 | 65 74 68 69 6e 67 2d 63 |ias 'nne|ething-c|
|00000f00| 6c 6f 73 65 2d 67 72 6f | 75 70 20 23 5b 28 67 72 |lose-gro|up #[(gr|
|00000f10| 6f 75 70 20 26 6f 70 74 | 69 6f 6e 61 6c 20 73 65 |oup &opt|ional se|
|00000f20| 72 76 65 72 29 20 22 c0 | 11 c2 87 22 20 5b 6e 69 |rver) ".|..." [ni|
|00000f30| 6c 20 6e 6e 65 65 74 68 | 69 6e 67 2d 63 75 72 72 |l nneeth|ing-curr|
|00000f40| 65 6e 74 2d 64 69 72 65 | 63 74 6f 72 79 20 74 5d |ent-dire|ctory t]|
|00000f50| 20 31 5d 29 0a 28 6e 6e | 6f 6f 2d 72 65 67 69 73 | 1]).(nn|oo-regis|
|00000f60| 74 65 72 2d 66 75 6e 63 | 74 69 6f 6e 20 27 6e 6e |ter-func|tion 'nn|
|00000f70| 65 65 74 68 69 6e 67 2d | 63 6c 6f 73 65 2d 67 72 |eething-|close-gr|
|00000f80| 6f 75 70 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |oup).(de|falias '|
|00000f90| 6e 6e 65 65 74 68 69 6e | 67 2d 6f 70 65 6e 2d 73 |nneethin|g-open-s|
|00000fa0| 65 72 76 65 72 20 23 5b | 28 73 65 72 76 65 72 20 |erver #[|(server |
|00000fb0| 26 6f 70 74 69 6f 6e 61 | 6c 20 64 65 66 73 29 20 |&optiona|l defs) |
|00000fc0| 22 c0 20 88 c1 5c 6e 21 | ab 82 c3 87 c4 0d b7 ac |". ..\n!|........|
|00000fd0| 88 c6 0d c4 5c 6e 44 43 | 5c 22 15 c7 c8 5c 6e 0d |....\nDC|\"...\n.|
|00000fe0| 23 87 22 20 5b 6e 6e 68 | 65 61 64 65 72 2d 69 6e |#." [nnh|eader-in|
|00000ff0| 69 74 2d 73 65 72 76 65 | 72 2d 62 75 66 66 65 72 |it-serve|r-buffer|
|00001000| 20 6e 6e 65 65 74 68 69 | 6e 67 2d 73 65 72 76 65 | nneethi|ng-serve|
|00001010| 72 2d 6f 70 65 6e 65 64 | 20 73 65 72 76 65 72 20 |r-opened| server |
|00001020| 74 20 6e 6e 65 65 74 68 | 69 6e 67 2d 64 69 72 65 |t nneeth|ing-dire|
|00001030| 63 74 6f 72 79 20 64 65 | 66 73 20 61 70 70 65 6e |ctory de|fs appen|
|00001040| 64 20 6e 6e 6f 6f 2d 63 | 68 61 6e 67 65 2d 73 65 |d nnoo-c|hange-se|
|00001050| 72 76 65 72 20 6e 6e 65 | 65 74 68 69 6e 67 5d 20 |rver nne|ething] |
|00001060| 34 5d 29 0a 28 6e 6e 6f | 6f 2d 72 65 67 69 73 74 |4]).(nno|o-regist|
|00001070| 65 72 2d 66 75 6e 63 74 | 69 6f 6e 20 27 6e 6e 65 |er-funct|ion 'nne|
|00001080| 65 74 68 69 6e 67 2d 6f | 70 65 6e 2d 73 65 72 76 |ething-o|pen-serv|
|00001090| 65 72 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |er).(def|alias 'n|
|000010a0| 6e 65 65 74 68 69 6e 67 | 2d 70 6f 73 73 69 62 6c |neething|-possibl|
|000010b0| 79 2d 63 68 61 6e 67 65 | 2d 64 69 72 65 63 74 6f |y-change|-directo|
|000010c0| 72 79 20 23 5b 28 67 72 | 6f 75 70 20 26 6f 70 74 |ry #[(gr|oup &opt|
|000010d0| 69 6f 6e 61 6c 20 73 65 | 72 76 65 72 29 20 22 08 |ional se|rver) ".|
|000010e0| ab 89 c1 08 21 ac 84 c2 | 08 21 88 0b ad 92 0c 0b |....!...|.!......|
|000010f0| 6b 3f ad 8c 0b 14 c5 16 | 06 c7 c8 42 16 09 ca 20 |k?......|...B... |
|00001100| 87 22 20 5b 73 65 72 76 | 65 72 20 6e 6e 65 65 74 |." [serv|er nneet|
|00001110| 68 69 6e 67 2d 73 65 72 | 76 65 72 2d 6f 70 65 6e |hing-ser|ver-open|
|00001120| 65 64 20 6e 6e 65 65 74 | 68 69 6e 67 2d 6f 70 65 |ed nneet|hing-ope|
|00001130| 6e 2d 73 65 72 76 65 72 | 20 67 72 6f 75 70 20 6e |n-server| group n|
|00001140| 6e 65 65 74 68 69 6e 67 | 2d 67 72 6f 75 70 20 6e |neething|-group n|
|00001150| 69 6c 20 6e 6e 65 65 74 | 68 69 6e 67 2d 6d 61 70 |il nneet|hing-map|
|00001160| 20 31 20 30 20 6e 6e 65 | 65 74 68 69 6e 67 2d 61 | 1 0 nne|ething-a|
|00001170| 63 74 69 76 65 20 6e 6e | 65 65 74 68 69 6e 67 2d |ctive nn|eething-|
|00001180| 63 72 65 61 74 65 2d 6d | 61 70 70 69 6e 67 5d 20 |create-m|apping] |
|00001190| 32 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |2]).(def|alias 'n|
|000011a0| 6e 65 65 74 68 69 6e 67 | 2d 6d 61 70 2d 66 69 6c |neething|-map-fil|
|000011b0| 65 20 23 5b 6e 69 6c 20 | 22 c0 09 21 88 c2 09 21 |e #[nil |"..!...!|
|000011c0| 0b 0c 51 87 22 20 5b 67 | 6e 75 73 2d 6d 61 6b 65 |..Q." [g|nus-make|
|000011d0| 2d 64 69 72 65 63 74 6f | 72 79 20 6e 6e 65 65 74 |-directo|ry nneet|
|000011e0| 68 69 6e 67 2d 6d 61 70 | 2d 66 69 6c 65 2d 64 69 |hing-map|-file-di|
|000011f0| 72 65 63 74 6f 72 79 20 | 66 69 6c 65 2d 6e 61 6d |rectory |file-nam|
|00001200| 65 2d 61 73 2d 64 69 72 | 65 63 74 6f 72 79 20 6e |e-as-dir|ectory n|
|00001210| 6e 65 65 74 68 69 6e 67 | 2d 67 72 6f 75 70 20 6e |neething|-group n|
|00001220| 6e 65 65 74 68 69 6e 67 | 2d 6d 61 70 2d 66 69 6c |neething|-map-fil|
|00001230| 65 5d 20 33 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |e] 3]).(|defalias|
|00001240| 20 27 6e 6e 65 65 74 68 | 69 6e 67 2d 63 72 65 61 | 'nneeth|ing-crea|
|00001250| 74 65 2d 6d 61 70 70 69 | 6e 67 20 23 5b 6e 69 6c |te-mappi|ng #[nil|
|00001260| 20 22 c0 09 21 85 64 01 | c2 20 c3 09 21 c4 89 1d | "..!.d.|. ..!...|
|00001270| 1e 06 1e 07 1e 08 c0 0e | 08 21 ab 85 c4 c9 ca 8f |........|.!......|
|00001280| 88 0e 0b ac 85 cc cd 42 | 16 0b 0e 0e 40 41 ab 8e |.......B|....@A..|
|00001290| 0e 0e 40 41 3a ac 87 cf | d0 0e 0e 5c 22 16 0e 0e |..@A:...|...\"...|
|000012a0| 11 ab b4 0e 07 c4 1e 12 | 89 1e 13 ab a9 d4 0e 11 |........|........|
|000012b0| 0e 13 40 5c 22 ab 94 0e | 12 ab 89 0e 12 0e 13 41 |..@\"...|.......A|
|000012c0| a1 88 aa 8b 0e 07 41 16 | 07 aa 84 0e 13 16 12 0e |......A.|........|
|000012d0| 13 41 89 16 13 ac 57 2a | 0e 0e c4 1e 12 89 1e 15 |.A....W*|........|
|000012e0| ab c9 0e 15 40 41 40 0e | 07 b6 ab a2 d6 d7 d8 0e |....@A@.|........|
|000012f0| 15 40 41 40 21 21 38 0e | 15 40 41 41 40 6b ab 8e |.@A@!!8.|.@AA@k..|
|00001300| 0e 15 40 41 40 0d 42 15 | 0e 15 16 12 aa 95 d9 16 |..@A@.B.|........|
|00001310| 06 0e 12 ab 89 0e 12 0e | 15 41 a1 88 aa 85 0e 0e |........|.A......|
|00001320| 41 16 0e 0e 15 41 89 16 | 15 ac 37 2a 0e 07 ab ae |A....A..|..7*....|
|00001330| 0e 07 40 0d b6 ac 9f d9 | 16 06 0e 0b 89 41 54 a1 |..@.....|.....AT.|
|00001340| 88 0e 0b 41 0e 07 40 d6 | d7 d8 0e 07 40 21 21 38 |...A..@.|....@!!8|
|00001350| 45 0e 0e 42 16 0e 0e 07 | 41 89 16 07 ac 52 0e 06 |E..B....|A....R..|
|00001360| ad e5 0e 1a 3f ad e0 8a | 0e 08 1e 1b dc 1e 1d de |....?...|........|
|00001370| df e0 21 21 71 1e 21 c4 | 1e 5c 22 e3 8e e4 63 88 |..!!q.!.|.\"...c.|
|00001380| e5 0e 0e 21 88 e6 63 88 | e5 0e 0b 21 88 e7 63 16 |...!..c.|...!..c.|
|00001390| 5c 22 0e 1b ac 84 0e 5c | 22 aa ad 0e 1b d9 61 ab |\".....\|".....a.|
|000013a0| 88 0e 21 71 88 e8 20 aa | 9f 0e 21 71 88 e9 ea 0e |..!q.. .|..!q....|
|000013b0| 1b 21 21 ac 88 eb ea 0e | 1b 21 d9 5c 22 88 ec 65 |.!!.....|.!.\"..e|
|000013c0| 64 0e 1b c4 ed 25 88 0e | 5c 22 2e 06 2c 87 22 20 |d....%..|\"..,." |
|000013d0| 5b 66 69 6c 65 2d 65 78 | 69 73 74 73 2d 70 20 6e |[file-ex|ists-p n|
|000013e0| 6e 65 65 74 68 69 6e 67 | 2d 64 69 72 65 63 74 6f |neething|-directo|
|000013f0| 72 79 20 6e 6e 65 65 74 | 68 69 6e 67 2d 6d 61 70 |ry nneet|hing-map|
|00001400| 2d 66 69 6c 65 20 64 69 | 72 65 63 74 6f 72 79 2d |-file di|rectory-|
|00001410| 66 69 6c 65 73 20 6e 69 | 6c 20 6d 61 70 2d 66 69 |files ni|l map-fi|
|00001420| 6c 65 73 20 74 6f 75 63 | 68 65 64 20 66 69 6c 65 |les touc|hed file|
|00001430| 73 20 6d 61 70 2d 66 69 | 6c 65 20 28 62 79 74 65 |s map-fi|le (byte|
|00001440| 2d 63 6f 64 65 20 22 c0 | 09 c2 c3 89 24 87 22 20 |-code ".|....$." |
|00001450| 5b 6c 6f 61 64 20 6d 61 | 70 2d 66 69 6c 65 20 6e |[load ma|p-file n|
|00001460| 69 6c 20 74 5d 20 35 29 | 20 28 28 65 72 72 6f 72 |il t] 5)| ((error|
|00001470| 29 29 20 6e 6e 65 65 74 | 68 69 6e 67 2d 61 63 74 |)) nneet|hing-act|
|00001480| 69 76 65 20 31 20 30 20 | 6e 6e 65 65 74 68 69 6e |ive 1 0 |nneethin|
|00001490| 67 2d 6d 61 70 20 6d 61 | 70 63 61 72 20 23 5b 28 |g-map ma|pcar #[(|
|000014a0| 6e 29 20 22 08 41 08 40 | c1 c2 c3 08 40 21 21 38 |n) ".A.@|....@!!8|
|000014b0| 45 87 22 20 5b 6e 20 35 | 20 66 69 6c 65 2d 61 74 |E." [n 5| file-at|
|000014c0| 74 72 69 62 75 74 65 73 | 20 6e 6e 65 65 74 68 69 |tributes| nneethi|
|000014d0| 6e 67 2d 66 69 6c 65 2d | 6e 61 6d 65 5d 20 36 5d |ng-file-|name] 6]|
|000014e0| 20 6e 6e 65 65 74 68 69 | 6e 67 2d 65 78 63 6c 75 | nneethi|ng-exclu|
|000014f0| 64 65 2d 66 69 6c 65 73 | 20 70 72 65 76 20 66 20 |de-files| prev f |
|00001500| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 6d 61 70 |string-m|atch map|
|00001510| 20 35 20 66 69 6c 65 2d | 61 74 74 72 69 62 75 74 | 5 file-|attribut|
|00001520| 65 73 20 6e 6e 65 65 74 | 68 69 6e 67 2d 66 69 6c |es nneet|hing-fil|
|00001530| 65 2d 6e 61 6d 65 20 74 | 20 6e 6e 65 65 74 68 69 |e-name t| nneethi|
|00001540| 6e 67 2d 72 65 61 64 2d | 6f 6e 6c 79 20 74 65 6d |ng-read-|only tem|
|00001550| 70 2d 66 69 6c 65 20 66 | 75 6e 64 61 6d 65 6e 74 |p-file f|undament|
|00001560| 61 6c 2d 6d 6f 64 65 20 | 64 65 66 61 75 6c 74 2d |al-mode |default-|
|00001570| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 67 65 74 2d 62 |major-mo|de get-b|
|00001580| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 67 65 6e |uffer-cr|eate gen|
|00001590| 65 72 61 74 65 2d 6e 65 | 77 2d 62 75 66 66 65 72 |erate-ne|w-buffer|
|000015a0| 2d 6e 61 6d 65 20 22 20 | 2a 6e 6e 68 65 61 64 65 |-name " |*nnheade|
|000015b0| 72 20 74 65 6d 70 2a 22 | 20 74 65 6d 70 2d 62 75 |r temp*"| temp-bu|
|000015c0| 66 66 65 72 20 74 65 6d | 70 2d 72 65 73 75 6c 74 |ffer tem|p-result|
|000015d0| 73 20 28 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |s ((byte|-code ".|
|000015e0| 09 21 ab 84 c2 09 21 88 | c0 87 22 20 5b 62 75 66 |.!....!.|.." [buf|
|000015f0| 66 65 72 2d 6e 61 6d 65 | 20 74 65 6d 70 2d 62 75 |fer-name| temp-bu|
|00001600| 66 66 65 72 20 6b 69 6c | 6c 2d 62 75 66 66 65 72 |ffer kil|l-buffer|
|00001610| 5d 20 32 29 29 20 22 28 | 73 65 74 71 20 6e 6e 65 |] 2)) "(|setq nne|
|00001620| 65 74 68 69 6e 67 2d 6d | 61 70 20 27 22 20 67 6e |ething-m|ap '" gn|
|00001630| 75 73 2d 70 72 69 6e 31 | 20 22 29 5c 6e 28 73 65 |us-prin1| ")\n(se|
|00001640| 74 71 20 6e 6e 65 65 74 | 68 69 6e 67 2d 61 63 74 |tq nneet|hing-act|
|00001650| 69 76 65 20 27 22 20 22 | 29 5c 6e 22 20 62 75 66 |ive '" "|)\n" buf|
|00001660| 66 65 72 2d 73 74 72 69 | 6e 67 20 66 69 6c 65 2d |fer-stri|ng file-|
|00001670| 64 69 72 65 63 74 6f 72 | 79 2d 70 20 66 69 6c 65 |director|y-p file|
|00001680| 2d 6e 61 6d 65 2d 64 69 | 72 65 63 74 6f 72 79 20 |-name-di|rectory |
|00001690| 6d 61 6b 65 2d 64 69 72 | 65 63 74 6f 72 79 20 77 |make-dir|ectory w|
|000016a0| 72 69 74 65 2d 72 65 67 | 69 6f 6e 20 6e 6f 6d 65 |rite-reg|ion nome|
|000016b0| 73 67 5d 20 37 5d 29 0a | 23 40 32 36 20 49 6e 73 |sg] 7]).|#@26 Ins|
|000016c0| 65 72 74 20 74 68 65 20 | 68 65 61 64 20 6f 66 20 |ert the |head of |
|000016d0| 46 49 4c 45 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |FILE...(|defalias|
|000016e0| 20 27 6e 6e 65 65 74 68 | 69 6e 67 2d 69 6e 73 65 | 'nneeth|ing-inse|
|000016f0| 72 74 2d 68 65 61 64 20 | 23 5b 28 66 69 6c 65 29 |rt-head |#[(file)|
|00001700| 20 22 c0 09 21 ad 86 c2 | 0b 21 88 64 62 87 22 20 | "..!...|.!.db." |
|00001710| 5b 6e 6e 65 65 74 68 69 | 6e 67 2d 67 65 74 2d 68 |[nneethi|ng-get-h|
|00001720| 65 61 64 20 66 69 6c 65 | 20 69 6e 73 65 72 74 2d |ead file| insert-|
|00001730| 62 75 66 66 65 72 2d 73 | 75 62 73 74 72 69 6e 67 |buffer-s|ubstring|
|00001740| 20 6e 6e 65 65 74 68 69 | 6e 67 2d 77 6f 72 6b 2d | nneethi|ng-work-|
|00001750| 62 75 66 66 65 72 5d 20 | 32 20 28 23 24 20 2e 20 |buffer] |2 (#$ . |
|00001760| 35 38 32 31 29 5d 29 0a | 23 40 35 38 20 43 72 65 |5821)]).|#@58 Cre|
|00001770| 61 74 65 20 61 20 68 65 | 61 64 20 62 79 20 6c 6f |ate a he|ad by lo|
|00001780| 6f 6b 69 6e 67 20 61 74 | 20 74 68 65 20 66 69 6c |oking at| the fil|
|00001790| 65 20 61 74 74 72 69 62 | 75 74 65 73 20 6f 66 20 |e attrib|utes of |
|000017a0| 46 49 4c 45 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |FILE...(|defalias|
|000017b0| 20 27 6e 6e 65 65 74 68 | 69 6e 67 2d 6d 61 6b 65 | 'nneeth|ing-make|
|000017c0| 2d 68 65 61 64 20 23 5b | 28 66 69 6c 65 20 26 6f |-head #[|(file &o|
|000017d0| 70 74 69 6f 6e 61 6c 20 | 62 75 66 66 65 72 29 20 |ptional |buffer) |
|000017e0| 22 c0 09 21 1a c3 c4 09 | 21 c5 c6 c7 0e 08 54 89 |"..!....|!.....T.|
|000017f0| 16 08 21 c9 ca 20 cb cc | 5c 6e 38 cd 6b ab 83 ce |..!.. ..|\n8.k...|
|00001800| aa 88 cf d0 cc 5c 6e 38 | 21 c5 51 0e 11 ab 95 8a |.....\n8|!.Q.....|
|00001810| 0e 11 71 88 d2 d3 d4 d5 | 23 ad 86 d6 d7 d8 21 c5 |..q.....|#.....!.|
|00001820| 51 29 ae 86 d9 da 5c 6e | 38 09 5c 22 db c7 dc 5c |Q)....\n|8.\"...\|
|00001830| 6e 38 21 21 d8 56 ab 8a | dd c7 dc 5c 6e 38 21 c5 |n8!!.V..|...\n8!.|
|00001840| 51 aa 81 ce 0e 11 ab 91 | 8a 0e 11 71 88 de c7 df |Q.......|...q....|
|00001850| 65 64 5c 22 21 c5 51 29 | aa 81 ce b1 0c 29 87 22 |ed\"!.Q)|.....)."|
|00001860| 20 5b 66 69 6c 65 2d 61 | 74 74 72 69 62 75 74 65 | [file-a|ttribute|
|00001870| 73 20 66 69 6c 65 20 61 | 74 74 73 20 22 53 75 62 |s file a|tts "Sub|
|00001880| 6a 65 63 74 3a 20 22 20 | 66 69 6c 65 2d 6e 61 6d |ject: " |file-nam|
|00001890| 65 2d 6e 6f 6e 64 69 72 | 65 63 74 6f 72 79 20 22 |e-nondir|ectory "|
|000018a0| 5c 6e 22 20 22 4d 65 73 | 73 61 67 65 2d 49 44 3a |\n" "Mes|sage-ID:|
|000018b0| 20 3c 6e 6e 65 65 74 68 | 69 6e 67 2d 22 20 69 6e | <nneeth|ing-" in|
|000018c0| 74 2d 74 6f 2d 73 74 72 | 69 6e 67 20 6e 6e 65 65 |t-to-str|ing nnee|
|000018d0| 74 68 69 6e 67 2d 6d 65 | 73 73 61 67 65 2d 69 64 |thing-me|ssage-id|
|000018e0| 2d 6e 75 6d 62 65 72 20 | 22 40 22 20 73 79 73 74 |-number |"@" syst|
|000018f0| 65 6d 2d 6e 61 6d 65 20 | 22 3e 5c 6e 22 20 35 20 |em-name |">\n" 5 |
|00001900| 28 30 20 30 29 20 22 22 | 20 22 44 61 74 65 3a 20 |(0 0) ""| "Date: |
|00001910| 22 20 63 75 72 72 65 6e | 74 2d 74 69 6d 65 2d 73 |" curren|t-time-s|
|00001920| 74 72 69 6e 67 20 62 75 | 66 66 65 72 20 72 65 2d |tring bu|ffer re-|
|00001930| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00001940| 3c 5b 61 2d 7a 41 2d 5a | 30 2d 39 5f 5d 40 5b 2d |<[a-zA-Z|0-9_]@[-|
|00001950| 61 2d 7a 41 2d 5a 30 2d | 39 5f 5d 3e 22 20 31 30 |a-zA-Z0-|9_]>" 10|
|00001960| 30 30 20 74 20 22 46 72 | 6f 6d 3a 20 22 20 6d 61 |00 t "Fr|om: " ma|
|00001970| 74 63 68 2d 73 74 72 69 | 6e 67 20 30 20 6e 6e 65 |tch-stri|ng 0 nne|
|00001980| 65 74 68 69 6e 67 2d 66 | 72 6f 6d 2d 6c 69 6e 65 |ething-f|rom-line|
|00001990| 20 32 20 73 74 72 69 6e | 67 2d 74 6f 2d 69 6e 74 | 2 strin|g-to-int|
|000019a0| 20 37 20 22 43 68 61 72 | 73 3a 20 22 20 22 4c 69 | 7 "Char|s: " "Li|
|000019b0| 6e 65 73 3a 20 22 20 63 | 6f 75 6e 74 2d 6c 69 6e |nes: " c|ount-lin|
|000019c0| 65 73 5d 20 31 36 20 28 | 23 24 20 2e 20 35 39 39 |es] 16 (|#$ . 599|
|000019d0| 37 29 5d 29 0a 23 40 33 | 36 20 52 65 74 75 72 6e |7)]).#@3|6 Return|
|000019e0| 20 61 20 46 72 6f 6d 20 | 68 65 61 64 65 72 20 62 | a From |header b|
|000019f0| 61 73 65 64 20 6f 66 20 | 55 49 44 2e 1f 0a 28 64 |ased of |UID...(d|
|00001a00| 65 66 61 6c 69 61 73 20 | 27 6e 6e 65 65 74 68 69 |efalias |'nneethi|
|00001a10| 6e 67 2d 66 72 6f 6d 2d | 6c 69 6e 65 20 23 5b 28 |ng-from-|line #[(|
|00001a20| 75 69 64 20 26 6f 70 74 | 69 6f 6e 61 6c 20 66 69 |uid &opt|ional fi|
|00001a30| 6c 65 29 20 22 c0 c1 c2 | 8f 1b c0 c4 c5 8f 1e 06 |le) "...|........|
|00001a40| c7 c8 0e 09 5c 22 ab 9b | 0e 09 ca 94 ca 95 4f c7 |....\"..|......O.|
|00001a50| cb 0e 09 5c 22 ab 8f 0e | 09 cc 94 cc 95 4f 13 c0 |...\"...|.....O..|
|00001a60| 16 06 aa 82 cd 20 1e 0e | cf 0b d0 0e 0e 0e 06 ab |..... ..|........|
|00001a70| 87 d1 0e 06 d2 51 aa 81 | d3 d4 b0 06 2b 87 22 20 |.....Q..|....+." |
|00001a80| 5b 6e 69 6c 20 28 75 73 | 65 72 2d 6c 6f 67 69 6e |[nil (us|er-login|
|00001a90| 2d 6e 61 6d 65 20 75 69 | 64 29 20 28 28 65 72 72 |-name ui|d) ((err|
|00001aa0| 6f 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |or (byte|-code ".|
|00001ab0| c1 20 55 ab 83 c2 20 87 | 08 c3 55 ab 82 c4 87 c5 |. U... .|..U.....|
|00001ac0| 08 21 87 22 20 5b 75 69 | 64 20 75 73 65 72 2d 75 |.!." [ui|d user-u|
|00001ad0| 69 64 20 75 73 65 72 2d | 6c 6f 67 69 6e 2d 6e 61 |id user-|login-na|
|00001ae0| 6d 65 20 30 20 22 72 6f | 6f 74 22 20 69 6e 74 2d |me 0 "ro|ot" int-|
|00001af0| 74 6f 2d 73 74 72 69 6e | 67 5d 20 32 29 29 29 20 |to-strin|g] 2))) |
|00001b00| 6c 6f 67 69 6e 20 28 75 | 73 65 72 2d 66 75 6c 6c |login (u|ser-full|
|00001b10| 2d 6e 61 6d 65 20 75 69 | 64 29 20 28 28 65 72 72 |-name ui|d) ((err|
|00001b20| 6f 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |or (byte|-code ".|
|00001b30| c1 20 55 ab 83 c2 20 87 | 08 c3 55 ad 81 c4 87 22 |. U... .|..U...."|
|00001b40| 20 5b 75 69 64 20 75 73 | 65 72 2d 75 69 64 20 75 | [uid us|er-uid u|
|00001b50| 73 65 72 2d 66 75 6c 6c | 2d 6e 61 6d 65 20 30 20 |ser-full|-name 0 |
|00001b60| 22 4d 73 2e 20 52 6f 6f | 74 22 5d 20 32 29 29 29 |"Ms. Roo|t"] 2)))|
|00001b70| 20 6e 61 6d 65 20 73 74 | 72 69 6e 67 2d 6d 61 74 | name st|ring-mat|
|00001b80| 63 68 20 22 5c 5c 60 2f | 5b 5e 2f 40 5d 2a 40 5c |ch "\\`/|[^/@]*@\|
|00001b90| 5c 28 5b 5e 3a 2f 5d 2b | 5c 5c 29 3a 22 20 66 69 |\([^:/]+|\\):" fi|
|00001ba0| 6c 65 20 31 20 22 2f 5c | 5c 28 75 73 65 72 73 5c |le 1 "/\|\(users\|
|00001bb0| 5c 7c 68 6f 6d 65 5c 5c | 29 2f 5c 5c 28 5b 5e 2f |\|home\\|)/\\([^/|
|00001bc0| 5d 2b 5c 5c 29 2f 22 20 | 32 20 73 79 73 74 65 6d |]+\\)/" |2 system|
|00001bd0| 2d 6e 61 6d 65 20 68 6f | 73 74 20 22 46 72 6f 6d |-name ho|st "From|
|00001be0| 3a 20 22 20 22 40 22 20 | 22 20 28 22 20 22 29 22 |: " "@" |" (" ")"|
|00001bf0| 20 22 22 20 22 5c 6e 22 | 5d 20 37 20 28 23 24 20 | "" "\n"|] 7 (#$ |
|00001c00| 2e 20 36 36 31 38 29 5d | 29 0a 23 40 35 35 20 45 |. 6618)]|).#@55 E|
|00001c10| 69 74 68 65 72 20 66 69 | 6e 64 20 74 68 65 20 68 |ither fi|nd the h|
|00001c20| 65 61 64 20 69 6e 20 46 | 49 4c 45 20 6f 72 20 6d |ead in F|ILE or m|
|00001c30| 61 6b 65 20 61 20 68 65 | 61 64 20 66 6f 72 20 46 |ake a he|ad for F|
|00001c40| 49 4c 45 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ILE...(d|efalias |
|00001c50| 27 6e 6e 65 65 74 68 69 | 6e 67 2d 67 65 74 2d 68 |'nneethi|ng-get-h|
|00001c60| 65 61 64 20 23 5b 28 66 | 69 6c 65 29 20 22 8a c0 |ead #[(f|ile) "..|
|00001c70| 09 21 71 88 c2 13 c4 70 | 21 88 c5 20 88 c6 0e 07 |.!q....p|!.. ....|
|00001c80| 21 ac 83 c2 aa bf c8 0e | 07 21 ac 86 c9 0e 07 21 |!.......|.!.....!|
|00001c90| ab 88 ca 0e 07 21 88 cb | aa ab cc 0e 07 21 88 cd |.....!..|.....!..|
|00001ca0| 20 ab 94 65 62 88 ce cf | c2 cb 23 ab 84 60 53 ae | ..eb...|..#..`S.|
|00001cb0| 81 64 64 7c 88 aa 8d 65 | 62 88 ca 0e 07 70 5c 22 |.dd|...e|b....p\"|
|00001cc0| 88 60 64 7c 88 cb 29 87 | 22 20 5b 67 65 74 2d 62 |.`d|..).|" [get-b|
|00001cd0| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 6e 6e 65 |uffer-cr|eate nne|
|00001ce0| 65 74 68 69 6e 67 2d 77 | 6f 72 6b 2d 62 75 66 66 |ething-w|ork-buff|
|00001cf0| 65 72 20 6e 69 6c 20 63 | 61 73 65 2d 66 6f 6c 64 |er nil c|ase-fold|
|00001d00| 2d 73 65 61 72 63 68 20 | 62 75 66 66 65 72 2d 64 |-search |buffer-d|
|00001d10| 69 73 61 62 6c 65 2d 75 | 6e 64 6f 20 65 72 61 73 |isable-u|ndo eras|
|00001d20| 65 2d 62 75 66 66 65 72 | 20 66 69 6c 65 2d 65 78 |e-buffer| file-ex|
|00001d30| 69 73 74 73 2d 70 20 66 | 69 6c 65 20 66 69 6c 65 |ists-p f|ile file|
|00001d40| 2d 64 69 72 65 63 74 6f | 72 79 2d 70 20 66 69 6c |-directo|ry-p fil|
|00001d50| 65 2d 73 79 6d 6c 69 6e | 6b 2d 70 20 6e 6e 65 65 |e-symlin|k-p nnee|
|00001d60| 74 68 69 6e 67 2d 6d 61 | 6b 65 2d 68 65 61 64 20 |thing-ma|ke-head |
|00001d70| 74 20 6e 6e 68 65 61 64 | 65 72 2d 69 6e 73 65 72 |t nnhead|er-inser|
|00001d80| 74 2d 68 65 61 64 20 6e | 6e 68 65 61 64 65 72 2d |t-head n|nheader-|
|00001d90| 61 72 74 69 63 6c 65 2d | 70 20 73 65 61 72 63 68 |article-|p search|
|00001da0| 2d 66 6f 72 77 61 72 64 | 20 22 5c 6e 5c 6e 22 5d |-forward| "\n\n"]|
|00001db0| 20 34 20 28 23 24 20 2e | 20 37 31 38 33 29 5d 29 | 4 (#$ .| 7183)])|
|00001dc0| 0a 23 40 33 34 20 52 65 | 74 75 72 6e 20 74 68 65 |.#@34 Re|turn the|
|00001dd0| 20 66 69 6c 65 20 6e 61 | 6d 65 20 6f 66 20 41 52 | file na|me of AR|
|00001de0| 54 49 43 4c 45 2e 1f 0a | 28 64 65 66 61 6c 69 61 |TICLE...|(defalia|
|00001df0| 73 20 27 6e 6e 65 65 74 | 68 69 6e 67 2d 66 69 6c |s 'nneet|hing-fil|
|00001e00| 65 2d 6e 61 6d 65 20 23 | 5b 28 61 72 74 69 63 6c |e-name #|[(articl|
|00001e10| 65 29 20 22 c0 09 21 5c | 6e a7 ab 87 5c 6e 0b b7 |e) "..!\|n...\n..|
|00001e20| 41 40 aa 81 5c 6e 50 87 | 22 20 5b 66 69 6c 65 2d |A@..\nP.|" [file-|
|00001e30| 6e 61 6d 65 2d 61 73 2d | 64 69 72 65 63 74 6f 72 |name-as-|director|
|00001e40| 79 20 6e 6e 65 65 74 68 | 69 6e 67 2d 64 69 72 65 |y nneeth|ing-dire|
|00001e50| 63 74 6f 72 79 20 61 72 | 74 69 63 6c 65 20 6e 6e |ctory ar|ticle nn|
|00001e60| 65 65 74 68 69 6e 67 2d | 6d 61 70 5d 20 33 20 28 |eething-|map] 3 (|
|00001e70| 23 24 20 2e 20 37 36 32 | 32 29 5d 29 0a 28 70 72 |#$ . 762|2)]).(pr|
|00001e80| 6f 76 69 64 65 20 27 6e | 6e 65 65 74 68 69 6e 67 |ovide 'n|neething|
|00001e90| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+